#!perl -w
use strict;

use CGI qw/ :standard /;
use CGI::Pretty qw/ :html /;

my $URL = "http://localhost";
my (@puzzles,@directions);
@directions = (
		"After completing puzzle 1, you will be assigned a 'username' cookie with whatever you choose as your username.  This will help the judges.  If you do not complete puzzle 1, or create a new session, please create a new cookie",
		"Some puzzles will have more than one approach, but the end will justify the means",
		"Don't panic"
		);

$puzzles[1] = <<P;
You come across a terminal displaying a login page ($URL/login.cgi).
Stop reading this and log in already.
Still reading?...
Luckily for you the new secretary will read anything you send her a link to
P

$puzzles[2] = <<P;
You find yourself staring at a listing of the companies projects ($URL/projects.cgi).
Don't you wish you knew what they are really working on?
P

$puzzles[3] = <<P;
Don't cross the streams!....Cross the site scripts?
P

$puzzles[4] = <<P;
<i>"Traverse the unreached boundaries ...
Where there.s no war, poverty, and pollution
Traverse the possibilities ...
Where there.s no environmental devastation
Traverse the unknown energy ...
Where there.s a parallel dimension disguised
Traverse levels of this mystery ...
Where we will be spending the rest of our lives"</i>[*]
Traverse into the darkest depths ...
Where usernames:passwords:uids:and gids play

[*] - Traverse : Into The Future by Je ' Free (it's a poem...that's art...)
P

shift @puzzles;
print header,
			start_html('TODO'),
			div(
					span("Directions"),
					ul(
						li([@directions])
						)),
			div(
					span("Questions"),
					ol(
						li([@puzzles])
						)),
			end_html;
